home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / APPLE FLASH DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  162b  |  3 lines
  1. 10  PRINT  CHR$(4);"BLOAD APPLE FLASH": HGR 
  2. 20  FOR I = 1 TO 400: HCOLOR=  RND(I) *6 +1:X =  RND(I) *280:Y =  RND(I) *160: HPLOT X,Y: NEXT 
  3. 30  CALL 768: GOTO 30